home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / MAX.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  1.4 KB  |  18 lines
  1.  
  2. *SELECT MAXIMUM OF SINGLE A OR B                                                
  3. *A AND B ARE VARIABLES                                                          
  4. *                                                                               
  5. MAX    $MACRO  A,B                                                              
  6.        LAC  :A:,0        LOAD :A:                                               
  7.        SUB  :B:,0        COMPARE :B:                                            
  8.        $VAR L,L1,L2                                                             
  9.        $ASG '$$LAB' TO L.S                                                      
  10.        $ASG L.SV+2 TO L.SV    UNIQUE LABEL                                      
  11.        $ASG L.SV-1 TO L1.V                                                      
  12.        $ASG L.SV   TO L2.V                                                      
  13.        BGZ  L$:L1.V:     BRANCH IS :A:>:B:                                      
  14.        LAC  :B:,0        LOAD :B:                                               
  15.        B    L$:L2.V:     TO CONTINUE                                            
  16. L$:L1.V: LAC :A:,0        LOAD :A:                                              
  17. L$:L2.V: EQU $           CONTINUE                                               
  18.        $END